lambda1 <-
function(x){
	x[1] - two_norm(x[-1])
}

